home *** CD-ROM | disk | FTP | other *** search
/ Network Supervisor's Toolkit / Network Supervisor's Toolkit.iso / tools / lu62 / port / pmsgop.h < prev    next >
Text File  |  1996-07-10  |  2KB  |  49 lines
  1. /* k 0165    25/05/91    */
  2. /* k 0191    02/07/91    */
  3. /* k 0201    01/09/91    */
  4. /* k 0206    06/09/91    *//* variables */
  5. /* k 0207    06/09/91    */
  6. /* k 0224       23/09/91        *//* ebss */
  7. /* k 0303    23/02/92    *//* do not check rdos if it is not
  8.                     initialised */
  9. /* k 0310       01/03/92    *//* message output */
  10. #include <ebss.h>               /* @0224 */
  11. #define Port_msg 0x10        /* @0201 */
  12. struct rqb *Res_preqrq();    /* @0310 */
  13. struct rqb *preqrq();        /* @0310 */
  14. pmsgop(msgno,pno,pp)            /* @0191 *//* @0310 */
  15. short msgno;            /* @0191 */
  16. short pno;            /* @0310 */
  17. short *pp;            /* @0310 */
  18. {
  19.  struct rqb *rp,*rrp;     /* @0308 */
  20. #if (OVL_TYPE==0 || RESIDENT==1)    /* @0310 */
  21.  if (rdos == NULL)    /* @0201 *//* @0303 *//* @0308 */
  22.    psmsgop(msgno,pno,pp);    /* @0191 *//* @0310 */
  23.  else                    /* @0308 */
  24. #endif                    /* @0310 */
  25.    if (vt_flag & VT_MODE && *rdos==0)            /* @0310 */
  26. #if (OVL_TYPE==1 && RESIDENT==1)    /* @0310 */
  27.      Trn_psmsgop(msgno,pno,pp);    /* @0191 *//* @0308 *//* @0310 */
  28. #else                    /* @0310 */
  29.      psmsgop(msgno,pno,pp);    /* @0310 *//* @0310 */
  30. #endif
  31.    else                /* @0201 */
  32. #if (OVL_TYPE==1 &&  RESIDENT==0)    /* @0310 */
  33.      if ((rp=Res_preqrq(1))!=0)       /* @0308 *//* @0310 */
  34. #else                /* @0310 */
  35.      if ((rp=preqrq(1))!=0)       /* @0308 */
  36. #endif            /* @0310 */
  37.        {                /* @0201 */
  38.      rp->th.ra.rparm.parm.parm1=msgno;    /* @0310 */
  39.      rp->th.ra.rparm.parm.parm2=pno;    /* @0310 */
  40.      rp->th.ra.wa.rqba.area1=pp;    /* @0310 */
  41.      rrp=(struct rqb *)(&(avt->msgq));   /* @0308 */
  42.          while (rrp->link!=0)                /* @0308 */
  43.            rrp=rrp->link;                    /* @0308 */
  44.          rrp->link=rp;                       /* @0308 */
  45.      if (vt_flag & VT_MODE)        /* @0310 */
  46.        Flag28 |= Port_msg;        /* @0201 *//* @0310 */
  47.     }                /* @0201 */
  48. }
  49.